home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / db4less3.arc / CUSTOMER.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1990-06-16  |  6KB  |  82 lines
  1. CUSTOMER
  2.  TO w+/b
  3.    SET COLOR OF TITLES TO w+/b
  4.    SET COLOR OF HIGHLIGHT TO b/w
  5.    SET COLOR OF BOX TO b/w
  6.    SET COLOR OF INFORMATION TO b/w
  7.    SET COLOR OF FIELDS TO b/w
  8. ENDIF
  9. SET VIEW TO TIMEEDIT.VUE
  10. *-- Define the main popup menu for Quickapp
  11. SET BORDER TO DOUBLE
  12. DEFINE POPUP quick FROM 7,27
  13. DEFINE BAR 1 OF quick PROMPT " Add Information" MESSAGE "Add records to database TIMEEDIT.VUE"
  14. DEFINE BAR 2 OF quick PROMPT " Change Information" MESSAGE "Edi
  15. CUSTCODE
  16. CUSTNAME
  17. "Browse database TIMEEDIT.VUE"
  18. DEFINE BAR 4 OF quick PROMPT " Discard Marked Records " MESSAGE "Purge deleted records in database TIMEEDIT.VUE"
  19. DEFINE BAR 5 OF quick PROMPT " Print Report" MESSAGE "Run report form TIME"
  20. DEFINE BAR 6 OF quick PROMPT " Exit From Time" MESSAGE "Exit program to dBASE"
  21. ON SELECTION POPUP quick DO Action WITH BAR()
  22. *-- Define the popup menu for print redirection
  23. DEFINE POPUP prntchk FROM 10,55
  24. DEFINE BAR 1 OF prntchk PROMPT " Send to..." SKIP
  25. DEFINE BAR 2 OF prntchk PROMPT REPLICATE(CHR(196),14) SKIP
  26. DEFINE BAR 3 OF prntchk PROMPT " Screen " MESSAGE "Screen only"
  27. DEFINE BAR 4 OF prntchk PROMPT " Printer" MESSAGE "Printer LPT1:"
  28. DEFINE BAR 5 OF prntchk PROMPT " Label Sample " MESSAGE "Printer LPT1: with Sample label" SKIP
  29. DEFINE BAR 6 OF prntchk PROMPT " Return" MESSAGE "Return to Main Menu"
  30. ON SELECTION POPUP prntchk DO get_sele
  31. *-- Window to cover work surface during edit, append, etc.
  32. DEFINE WINDOW work FROM 0,0 TO 21,79 NONE
  33. *-- Window for area below menu heading & for running reports/labels in
  34. DEFINE WINDOW desktop FROM 4,0 TO 21,79 NONE
  35. DEFINE WINDOW printemp FROM 10,25 TO 15,56
  36. *-- Display heading centered on the screen.
  37. DO menubox WITH lc_heading
  38. *-- Show the menu so we don't get a flash if the user hits arrow keys or ESC
  39. SHOW POPUP quick
  40. SAVE SCREEN TO quick
  41. *-- Display Quickapp menu centered on the screen.
  42. DO WHILE gn_barv <> 6 && Prevent user 
  43. CUSTCODE
  44. BOISE     
  45. WHISPER   
  46. CUSTCODE
  47. CUSTNAME
  48. Boise Cascade            
  49. Whisperwood, Ltd.        
  50. CUSTNAME
  51. BOISE     
  52. BRIGHTON  
  53. GSA       
  54. LIMBER    04
  55. WESTWINDS 
  56. WHISPER   
  57.    Sign-on defaults
  58.  Display options
  59.    Environment settings
  60.    Application drive/path
  61. 1Set default values for application sign-on screen
  62. Set default display attributes
  63. Set default environment5Set default drive and search path for generated menus
  64. SDEAz
  65. !   Save all changes and exit#-
  66. !   Abandon all changes and exit
  67. 6Save any changes made and leave applications generator7Leave application
  68. Boise Cascade            8
  69. Brighton Associates      
  70. General Services Admin    
  71. Limber Lumber Company    nme
  72. Westwinds Construction Con d
  73. Whisperwood, Ltd.        val
  74. for application sign-on screen
  75. Set default display attributes
  76. Set default environment5Set default drive and search path for generated menus
  77. SDEAz
  78. !   Save all changes and exit#-
  79. !   Abandon all changes and exit
  80. 6Save any changes made and leave applications generator7Leave applications gene
  81. *tor without saving any changes
  82.